1 REM ******  MICRO - MINDER  ******
2 REM ******** DESIGNED  BY ********
3 REM ** BOB LLORET AND JOE FUSCO **
4 REM ***** FOR AHOY! MAGAZINE *****
5 REM
20 REM ****** TITLE SCREEN ******
30 REM ==========================
40 PRINT "[147]":POKE 53280,0:POKE 53281,0:PRINT
80 PRINT TAB(8);" [223][146]  [169] [146] [209]"
90 PRINT TAB(8);"[158]  [223][169]  "
100 PRINT TAB(8);"  [146][223][169]  [146]  [146]    [146]    [146]    "
110 PRINT TAB(8);"[159]  [146]    [146]  [146]  [146]    [146]    [146]  "
120 PRINT TAB(8);"  [146]    [146]  [146]    [146]  [146]      "
130 PRINT
140 PRINT TAB(8);"[156] [223][146]  [169] [146] [209]        "
150 PRINT TAB(8);"[149]  [223][169]  [146]          "
160 PRINT TAB(8);"[154]  [146][223][169]  [146]  [146]   [223][146]    [146]  [146][184][184]    "
170 PRINT TAB(8);"[158]  [146]    [146]  [146]  [146]  [146]  [146]  [146]  [146][162]   "
180 PRINT TAB(8);"[159]  [146]    [146]  [146]  [146]  [146]    [146]  [146][162][162]  ":PRINT:PRINT
185 PRINT "[145]                                        "
190 FOR A=1 TO 7:PRINT"[145] [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191] ":NEXT A
192 PRINT "[145]                                        "
195 PRINT "[145][145][145][145][145][145][145][145][145]"
200 MSG$="               **  DESIGNED BY.....BOB LLORET  **"
205 PRINT TAB(5);"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
206 PRINT TAB(5);"[145][166]                            [166]"
210 PRINT TAB(5);"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":PRINT "[145][145][145]"
215 M$=RIGHT$(MSG$,LEN(MSG$)-1):C$=M$+LEFT$(MSG$,1)
220 PRINT TAB(6);"[145][159]";LEFT$(C$,28):MSG$=C$
225 FOR D=1 TO 70:NEXT D:MSG=MSG+1:IF MSG=75 THEN 240
230 GOTO 215
240 A$(1)="@0:INDX-MON,S,R"
250 A$(2)="@0:INDX-DAT,S,R"
260 A$(3)="@0:INDX-NAM,S,R":C$="0"
270 N=0:C=0:SI=54272:FOR SO=0 TO 24:POKE SO+SI,0:NEXT SO
280 PRINT "":DIM A(5,7),MO$(100),DT$(100),NA$(100),DT(100)
290 GOTO 10000
300 PRINT "[147]":POKE 53280,4:POKE 53281,1:PRINT:S=0:HI=37:LO=162:GOSUB 11000
305 REM *****  MAIN MENU  *****
306 REM =======================
310 PRINT TAB(5);"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
315 PRINT TAB(5);"[156][221] *  S E L E C T I O N S  [156]* [221]"
320 PRINT TAB(5);"[156][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
330 PRINT TAB(10);"[156][1][146] ADD APP'TS"
340 PRINT TAB(10);"[156][2][146] DELETE APP'TS"
350 PRINT TAB(10);"[156][3][146] LIST APP'TS"
360 PRINT TAB(10);"[156][4][146] CHECK APP'TS"
370 PRINT TAB(10);"[156][5][146] TERMINATE SESSION"
380 PRINT TAB(10);"YOUR CHOICE [156][1-5][146]"
385 GET CHOICE:IF CHOICE=0 THEN 385
399 HI=33:LO=135:GOSUB 11000
400 IF CHOICE=1 THEN C=0:GOTO 500
410 IF CHOICE=2 THEN C=0:GOTO 700
420 IF CHOICE=3 THEN 1420
430 IF CHOICE=4 THEN 1600
440 IF CHOICE=5 THEN 1100
498 REM *** ADD APPOINTMENTS ***
499 REM ========================
500 PRINT "[147]":POKE 53280,2:POKE 53281,1:N=N+1:C=C+1
505 PRINT "[145][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]"
506 PRINT "[145][191][191][191][191][191][191][191][191][191][191][191]                  [191][191][191][191][191][191][191][191][191][191][191]"
510 PRINT "[145][191][191][191][191][191][191][191][191][191][191][191] ADD APPOINTMENTS [191][191][191][191][191][191][191][191][191][191][191]"
515 PRINT "[145][191][191][191][191][191][191][191][191][191][191][191][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][191][191][191][191][191][191][191][191][191][191][191]"
520 FOR A=1 TO 4:PRINT:NEXT A
530 PRINTTAB(10);"ENTER MONTH";:INPUT MO$(N):IFMO$(N)="" THEN PRINT"[145][145]":GOTO530
540 PRINTTAB(10);"ENTER DATE";:INPUT DT$(N):IFDT$(N)="" THENPRINT"[145][145][145]":GOTO540
545 PRINT
550 PRINTTAB(10);"ENTER NAME";:INPUTNA$(N):IFNA$(N)=""THENPRINT"[145][145]":GOTO550
570 PRINT TAB(13);"ANY MORE (Y/N)"
590 GET AN$:IF AN$="" THEN 590
600 IF AN$="Y" THEN 500
610 PRINT TAB(8);"";C;"APP'TS WERE ADDED":FORZ=1TO1500:NEXT:GOTO300
698 REM **** DELETE APP'TS ****
699 REM =======================
700 PRINT "[147]":POKE 53280,6:POKE 53281,1:C=C+1
710 PRINT "[145][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]"
711 PRINT "[145][191][191][191][191][191][191][191][191][191][191]                     [191][191][191][191][191][191][191][191][191][191]"
715 PRINT "[145][191][191][191][191][191][191][191][191][191][191] DELETE APPOINTMENTS [191][191][191][191][191][191][191][191][191]"
720 PRINT "[145][191][191][191][191][191][191][191][191][191][191][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][191][191][191][191][191][191][191][191][191]"
730 FOR A=1 TO 5:PRINT:NEXT A:PRINT TAB(10);"ENTER APP'T NO.";:INPUT DL
740 MO$(DL)="***":DT$(DL)="**":NA$(DL)="*****"
750 FOR A=1 TO 9:PRINT:NEXT A
760 PRINT TAB(13);"ANYMORE [Y/N]"
770 GET AN$:IF AN$="" THEN 770
780 IF AN$="Y" THEN 700
790 PRINT TAB(8);"";C;"APP'TS WERE DELETED":FOR D=1 TO 1500:NEXT D
800 GOTO 300
1100 REM ** WRITE FILE ROUTINE **
1110 REM ========================
1115 FG=0
1120 OPEN2,8,2,"@0:INDX-MON,S,W"
1130 FOR J=1 TO N
1135 IFMO$(J)="**"THEN FG=FG+1:GOTO1181
1180 PRINT#2,MO$(J)
1181 NEXT
1182 CLOSE2
1190 OPEN2,8,2,"@0:INDX-DAT,S,W"
1191 FORJ=1 TO N
1195 IF DT$(J)="**" THEN 1202
1200 PRINT#2,DT$(J)
1202 NEXT
1203 CLOSE2
1210 OPEN2,8,2,"@0:INDX-NAM,S,W"
1220 FOR J=1 TO N
1222 IF NA$(J)="**" THEN 1232
1230 PRINT#2,NA$(J)
1232 NEXT
1233 CLOSE2
1240 OPEN2,8,2,"@0:INDX-LIST,S,W"
1250 PRINT#2,N-FG:CLOSE2
1260 PRINT "[147][159]":POKE 53280,14:POKE 53281,6:END
1400 REM *** LIST APP'TS ***
1410 REM ====================
1420 PRINT"[147]":POKE 53280,9:POKE 53281,7:I=0
1430 PRINT "[149][145][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]"
1435 PRINT "[149][145][191][191][191][191][191][191][191][191][191][191][191]                   [191][191][191][191][191][191][191][191][191][191][191]"
1440 PRINT "[145][191][191][191][191][191][191][191][191][191][191][191] [144]LIST APPOINTMENTS [149][191][191][191][191][191][191][191][191][191][191]"
1445 PRINT "[145][191][191][191][191][191][191][191][191][191][191][191][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][191][191][191][191][191][191][191][191][191][191]":TA=10
1460 FOR J=1 TO N:I=I+1:IF J>9 THEN TA=9
1465 PRINTTAB(TA);"[144]";J;" ";
1470 PRINT MO$(J);" ";
1480 PRINT DT$(J);", ";
1490 PRINT NAME$(J)
1500 IF I=16 THEN 1520
1510 NEXT J
1520 PRINT TAB(4);"[149]PRESS F1 FOR MORE [144]OR [149]F3 FOR MENU"
1530 GET AN$:IF AN$="" THEN 1530
1540 IF AN$="[133]" AND I=16 THEN I=0:GOSUB 2300:GOTO 1510
1550 GOTO 300
1598 REM **** CHECK APP'TS ****
1599 REM ======================
1600 PRINT "[147]":POKE 53280,6:POKE 53281,7
1605 PRINT:PRINT TAB(11);"[144]* CHECK APP'TS *"
1610 FOR A=1 TO 7:PRINT:NEXT A
1620 PRINT TAB(6);"WHICH MONTH? (JAN-DEC)";:INPUT MN$
1630 IF MN$="JAN" THEN DAY=13:DYS=31
1640 IF MN$="FEB" THEN DAY=28:DYS=29
1650 IF MN$="MAR" THEN DAY=28:DYS=31
1660 IF MN$="APR" THEN DAY=8:DYS=30
1670 IF MN$="MAY" THEN DAY=18:DYS=31
1680 IF MN$="JUN" THEN DAY=33:DYS=30
1690 IF MN$="JUL" THEN DAY=8:DYS=31
1700 IF MN$="AUG" THEN DAY=23:DYS=31
1710 IF MN$="SEP" THEN DAY=3:DYS=30
1720 IF MN$="OCT" THEN DAY=13:DYS=31
1730 IF MN$="NOV" THEN DAY=28:DYS=30
1740 IF MN$="DEC" THEN DAY=3:DYS=31
1745 GOSUB 2000
1746 FORSO=1TO35:Q=INT(RND(0)*200)+1:POKE SI+24,15:POKE SI+5,2:POKE SI+6,50
1747 POKE SI+4,17:POKE SI+1,Q:POKE SI,Q:FOR D=1 TO 10:NEXT D:NEXT SO
1748 POKE SI+4,32:POKE SI+1,0:POKE SI,0
1750 GOSUB 2200
1751 P=POS(0):IF P>0 THEN L2=7
1752 IF P=12 AND MN$="DEC" THEN L2=4
1753 IF P=12 AND MN$="APR" THEN L2=7
1754 IF P=0 OR P=7 THEN L2=4
1755 FOR L=1 TO L2:PRINT:NEXT L:PRINT TAB(9);"PRESS F1 FOR MAIN MENU"
1756 PRINT "[145][145][145][145][145]"
1760 FOR J=1 TO N
1770 IF MO$(J)<>MN$ THEN 1810
1780 PRINT TAB(22);"[145]";DT$(J);"-";NA$(J)
1790 GET AN$:IF AN$="" THEN 1790
1795 IF AN$="[133]" THEN 300
1796 IF AN$=CHR$(32) THEN 1805
1800 IF AN$<>"[133]" OR AN$<>CHR$(32) THEN 1790
1805 PRINT TAB(22);"[145]               [160]"
1810 NEXT J
1820 PRINT TAB(22);"[145]NO MORE APP'TS"
1830 GET AN$:IF AN$="" THEN 1830
1840 GOTO 300
1998 REM *** DRAW CALENDAR ***
1999 REM =====================
2000 PRINT "[147]":POKE 53280,2:POKE 53281,15
2005 PRINT TAB(12);"[145]DATE:";MN$;" 1985"
2010 PRINT:PRINT "    SUN  MON  TUE  WED  TH  FRI  SAT"
2020 PRINT "[144]  [176][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][192][192][192][192][174]"
2030 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2040 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2050 PRINT "  [171][195][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
2060 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2070 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2080 PRINT "  [171][195][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
2090 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2100 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2110 PRINT "  [171][195][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
2120 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2130 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2140 PRINT "  [171][195][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
2150 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2160 PRINT "  [221]    [221]    [221]    [221]    [221]    [221]    [221]    [221]"
2170 PRINT "  [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"
2180 PRINT "  [221]    [221]    [221]":PRINT "  [221]    [221]    [221]"
2185 PRINT "  [173][192][192][192][192][177][192][192][192][192][189]";
2190 PRINT "[145][145]  APP'T:":RETURN
2200 T=DAY:PRINT "":CNT=0:J=1
2210 FOR B=1 TO 5:FOR C=1 TO 7:CNT=CNT+1
2220 A(B,C)=CNT:NEXT C:NEXT B:PRINT ""
2224 FOR J=1 TO N
2225 IFMO$(J)=MN$ THEN 2230
2226 NEXT J
2230 FOR B=1 TO 5:FOR C=1 TO 7
2235 DT(J)=VAL(DT$(J))
2240 IF MO$(J)<>MN$ THEN 2255
2245 IF DT(J)<>A(B,C) THEN  2255
2250 GOTO 2260
2255 PRINT TAB(T);"[144]";A(B,C);:GOTO 2265
2260 PRINT TAB(T);A(B,C);"[157][157]*[145][144]";:J=J+1
2265 T=T+5:IF T>35 THEN T=3:FOR L=1 TO 3:PRINT:NEXT L
2270 IF A(B,C)>=DYS THEN 2290
2280 NEXT C:NEXT B
2290 RETURN
2298 REM **** ERASE SCREEN ****
2299 REM ======================
2300 PRINT "":FOR A=1 TO 2:PRINT:NEXT A
2310 FOR A=1 TO 18:PRINT"                                      ":NEXT A
2320 PRINT "":PRINT "":RETURN
4998 REM **** OPEN NEW FILE ****
4999 REM =======================
5000 PRINT"[147]";:PRINT"CREATING CALENDAR"
5005 FORX=1TO3
5010 OPEN2,8,2,A$(X)
5015 PRINT#2,C$
5020 CLOSE2
5025 NEXTX
5030 OPEN2,8,2,"@0:INDX-LIST,S,W"
5035 PRINT#2,0:CLOSE2:GOTO10000
5998 REM **** READ FILE ****
5999 REM ===================
6000 PRINT "[147]":POKE 53280,0:POKE 53281,9:FORA=1TO7:PRINT:NEXTA
6005 PRINT TAB(10);"[158]ONE MOMENT PLEASE..."
6006 PRINT TAB(5);"I'M LOADING YOUR APPOINTMENTS"
6010 OPEN2,8,2,"@0:INDX-LIST,S,R"
6015 INPUT#2,N:CLOSE2:IFN=0THEN300
6025 OPEN2,8,2,A$(1)
6030 FORX=1TON
6035 INPUT#2,MO$(X):NEXTX:CLOSE2
6040 OPEN2,8,2,A$(2)
6045 FORX=1TON
6050 INPUT#2,DT$(X):NEXTX:CLOSE2
6060 OPEN2,8,2,A$(3)
6065 FORX=1TON
6070 INPUT#2,NA$(X):NEXTX:CLOSE2:GOTO300
10000 PRINT "[147]":POKE 53280,0:POKE 53281,0
10003 PRINT TAB(15);"[213][195][195][195][195][195][195][195][195][201]"
10004 PRINT TAB(11);"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
10005 PRINT TAB(7);"[195][195][195]<[194]* MICRO-MINDER *[194]>[195][195][195]"
10006 PRINT TAB(11);"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
10007 PRINT TAB(15);"[202][195][195][195][195][195][195][195][195][203]"
10010 FOR A=1 TO 5:PRINT:NEXT A
10020 PRINT TAB(12);"[1][146] NEW CALENDAR":PRINT TAB(12);"[2][146] OLD CALENDAR"
10030 FOR A=1 TO 8:PRINT:NEXT A
10040 PRINT TAB(11);"[159]ENTER CHOICE [1-2]"
10050 GET Q:IF Q=0 THEN 10050
10060 ON Q GOTO 5000,6000
11000 REM
11010 POKE SI+24,15:POKE SI+5,2:POKE SI+6,100:POKE SI+4,33
11020 POKE SI+1,HI:POKE SI,LO:FOR D=1 TO 130:NEXT D
11030 POKE SI+4,16:POKE SI+1,0:POKE SI,0:RETURN